[EN 15] линейная целочисленная оптимизация с lpSolve в R